@XLOCAL lcMainClassLib LOCAL lcLastSetTalk,lcLastSetPath,lcLastSetClassLib,lcOnShutdown *-- Save and configure environment. lcLastSetTalk=SET("TALK") SET TALK OFF lcLastSetPath=SET("PATH") ** ** PUSH MENU _msysmenu lcLastSetClassLib=SET("CLASSLIB") lcMainClassLib="**" SET CLASSLIB TO (lcMainClassLib) ADDITIVE lcOnShutdown="ShutDown()" ON SHUTDOWN &lcOnShutdown ON ERROR ErrorHandler(ERROR(),PROGRAM(),LINENO()) _shell="DO Cleanup IN **" *-- Instantiate application object. RELEASE goApp PUBLIC goApp goApp=CREATEOBJECT("cApplication") *-- Configure application object. ** *-- Show application. goApp.Show *-- Release application. RELEASE goApp *-- Restore default menu. POP MENU _msysmenu *-- Restore environment. ON ERROR ON SHUTDOWN IF NOT lcLastSetClassLib==SET("classlib") RELEASE CLASSLIB (lcMainClassLib) ENDIF IF EMPTY(lcLastSetPath) SET PATH TO ELSE SET PATH TO &lcLastSetPath ENDIF IF lcLastSetTalk=="ON" SET TALK ON ELSE SET TALK OFF ENDIF RETURN FUNCTION ErrorHandler(nError,cMethod,nLine) LOCAL lcErrorMsg,lcCodeLineMsg WAIT CLEAR lcErrorMsg=MESSAGE()+CHR(13)+CHR(13) lcErrorMsg=lcErrorMsg+"Method: "+cMethod lcCodeLineMsg=MESSAGE(1) IF BETWEEN(nLine,1,10000) AND NOT lcCodeLineMsg="..." lcErrorMsg=lcErrorMsg+CHR(13)+"Line: "+ALLTRIM(STR(nLine)) IF NOT EMPTY(lcCodeLineMsg) lcErrorMsg=lcErrorMsg+CHR(13)+CHR(13)+lcCodeLineMsg ENDIF ENDIF IF MESSAGEBOX(lcErrorMsg,17,_screen.Caption)#1 ON ERROR RETURN .F. ENDIF ENDFUNC FUNCTION ShutDown IF TYPE("goApp")=="O" AND NOT ISNULL(goApp) RETURN goApp.OnShutDown() ENDIF Cleanup() QUIT ENDFUNC FUNCTION Cleanup IF CNTBAR("_msysmenu")=7 RETURN ENDIF ON ERROR ON SHUTDOWN SET CLASSLIB TO SET PATH TO CLEAR ALL CLOSE ALL POP MENU _msysmenu RETURN DATAINCLUDEFORMSGRAPHICSHELPLIBSMENUSPROGSREPORTSContactBooksDonation charity.dbf Recipes Address BookAsset TrackingEvent ManagementExpensesHousehold InventoryInventory ControlLedger MembershipMusic Collection Order EntryPicture LibraryResource SchedulingService Call ManagementStudents and ClassesVideo Collection Wine ListWorkoutTime and BillingvLOCAL lcMainClassLib LOCAL lcLastSetTalk,lcLastSetPath,lcLastSetClassLib,lcOnShutdown *-- Save and configure environment. lcLastSetTalk=SET("TALK") SET TALK OFF lcLastSetPath=SET("PATH") ** ** PUSH MENU _msysmenu lcLastSetClassLib=SET("CLASSLIB") lcMainClassLib="**" SET CLASSLIB TO (lcMainClassLib) ADDITIVE lcOnShutdown="ShutDown()" ON SHUTDOWN &lcOnShutdown ON ERROR ErrorHandler(ERROR(),PROGRAM(),LINENO()) _shell="DO Cleanup IN **" *-- Instantiate application object. RELEASE goApp PUBLIC goApp goApp=CREATEOBJECT("cApplication") *-- Configure application object. ** *-- Show application. goApp.Show *-- Release application. RELEASE goApp *-- Restore default menu. POP MENU _msysmenu *-- Restore environment. ON ERROR ON SHUTDOWN IF NOT lcLastSetClassLib==SET("classlib") RELEASE CLASSLIB (lcMainClassLib) ENDIF IF EMPTY(lcLastSetPath) SET PATH TO ELSE SET PATH TO &lcLastSetPath ENDIF IF lcLastSetTalk=="ON" SET TALK ON ELSE SET TALK OFF ENDIF RETURN FUNCTION ErrorHandler(nError,cMethod,nLine) LOCAL lcErrorMsg,lcCodeLineMsg WAIT CLEAR lcErrorMsg=MESSAGE()+CHR(13)+CHR(13) lcErrorMsg=lcErrorMsg+"Method: "+cMethod lcCodeLineMsg=MESSAGE(1) IF BETWEEN(nLine,1,10000) AND NOT lcCodeLineMsg="..." lcErrorMsg=lcErrorMsg+CHR(13)+"Line: "+ALLTRIM(STR(nLine)) IF NOT EMPTY(lcCodeLineMsg) lcErrorMsg=lcErrorMsg+CHR(13)+CHR(13)+lcCodeLineMsg ENDIF ENDIF IF MESSAGEBOX(lcErrorMsg,17,_screen.Caption)#1 ON ERROR RETURN .F. ENDIF ENDFUNC FUNCTION ShutDown IF TYPE("goApp")=="O" AND NOT ISNULL(goApp) RETURN goApp.OnShutDown() ENDIF Cleanup() QUIT ENDFUNC FUNCTION Cleanup IF CNTBAR("_msysmenu")=7 RETURN ENDIF ON ERROR ON SHUTDOWN SET CLASSLIB TO SET PATH TO CLEAR ALL CLOSE ALL POP MENU _msysmenu RETURN ** •LOCAL lcMainClassLib LOCAL lcLastSetTalk,lcLastSetPath,lcLastSetClassLib,lcOnShutdown *-- Save and configure environment. lcLastSetTalk=SET("TALK") SET TALK OFF lcLastSetPath=SET("PATH") IF DIRECTORY(**) ** ** ENDIF PUSH MENU _msysmenu lcLastSetClassLib=SET("CLASSLIB") lcMainClassLib="**" SET CLASSLIB TO (lcMainClassLib) ADDITIVE lcOnShutdown="ShutDown()" ON SHUTDOWN &lcOnShutdown ON ERROR ErrorHandler(ERROR(),PROGRAM(),LINENO()) _shell="DO Cleanup IN **" *-- Instantiate application object. RELEASE goApp PUBLIC goApp goApp=CREATEOBJECT("cApplication") *-- Configure application object. ** *-- Show application. goApp.Show *-- Release application. RELEASE goApp *-- Restore default menu. POP MENU _msysmenu *-- Restore environment. ON ERROR ON SHUTDOWN IF NOT lcLastSetClassLib==SET("classlib") RELEASE CLASSLIB (lcMainClassLib) ENDIF IF EMPTY(lcLastSetPath) SET PATH TO ELSE SET PATH TO &lcLastSetPath ENDIF IF lcLastSetTalk=="ON" SET TALK ON ELSE SET TALK OFF ENDIF RETURN FUNCTION ErrorHandler(nError,cMethod,nLine) LOCAL lcErrorMsg,lcCodeLineMsg WAIT CLEAR lcErrorMsg=MESSAGE()+CHR(13)+CHR(13) lcErrorMsg=lcErrorMsg+"Method: "+cMethod lcCodeLineMsg=MESSAGE(1) IF BETWEEN(nLine,1,10000) AND NOT lcCodeLineMsg="..." lcErrorMsg=lcErrorMsg+CHR(13)+"Line: "+ALLTRIM(STR(nLine)) IF NOT EMPTY(lcCodeLineMsg) lcErrorMsg=lcErrorMsg+CHR(13)+CHR(13)+lcCodeLineMsg ENDIF ENDIF IF MESSAGEBOX(lcErrorMsg,17,_screen.Caption)#1 ON ERROR RETURN .F. ENDIF ENDFUNC FUNCTION ShutDown IF TYPE("goApp")=="O" AND NOT ISNULL(goApp) RETURN goApp.OnShutDown() ENDIF Cleanup() QUIT ENDFUNC FUNCTION Cleanup IF CNTBAR("_msysmenu")=7 RETURN ENDIF ON ERROR ON SHUTDOWN SET CLASSLIB TO SET PATH TO CLEAR ALL CLOSE ALL POP MENU _msysmenu RETURN **  LOCAL lcMainClassLib LOCAL lcLastSetTalk,lcLastSetPath,lcLastSetClassLib,lcOnShutdown *-- Save and configure environment. lcLastSetTalk=SET("TALK") SET TALK OFF lcLastSetPath=SET("PATH") IF DIRECTORY(**) *CD * ** ENDIF PUSH MENU _msysmenu lcLastSetClassLib=SET("CLASSLIB") lcMainClassLib="**" SET CLASSLIB TO (lcMainClassLib) ADDITIVE lcOnShutdown="ShutDown()" ON SHUTDOWN &lcOnShutdown ON ERROR ErrorHandler(ERROR(),PROGRAM(),LINENO()) _shell="DO Cleanup IN **" *-- Instantiate application object. RELEASE goApp PUBLIC goApp goApp=CREATEOBJECT("cApplication") *-- Configure application object. ** *-- Show application. goApp.Show *-- Release application. RELEASE goApp *-- Restore default menu. POP MENU _msysmenu *-- Restore environment. ON ERROR ON SHUTDOWN IF NOT lcLastSetClassLib==SET("classlib") RELEASE CLASSLIB (lcMainClassLib) ENDIF IF EMPTY(lcLastSetPath) SET PATH TO ELSE SET PATH TO &lcLastSetPath ENDIF IF lcLastSetTalk=="ON" SET TALK ON ELSE SET TALK OFF ENDIF RETURN FUNCTION ErrorHandler(nError,cMethod,nLine) LOCAL lcErrorMsg,lcCodeLineMsg WAIT CLEAR lcErrorMsg=MESSAGE()+CHR(13)+CHR(13) lcErrorMsg=lcErrorMsg+"Method: "+cMethod lcCodeLineMsg=MESSAGE(1) IF BETWEEN(nLine,1,10000) AND NOT lcCodeLineMsg="..." lcErrorMsg=lcErrorMsg+CHR(13)+"Line: "+ALLTRIM(STR(nLine)) IF NOT EMPTY(lcCodeLineMsg) lcErrorMsg=lcErrorMsg+CHR(13)+CHR(13)+lcCodeLineMsg ENDIF ENDIF IF MESSAGEBOX(lcErrorMsg,17,_screen.Caption)#1 ON ERROR RETURN .F. ENDIF ENDFUNC FUNCTION ShutDown IF TYPE("goApp")=="O" AND NOT ISNULL(goApp) RETURN goApp.OnShutDown() ENDIF Cleanup() QUIT ENDFUNC FUNCTION Cleanup IF CNTBAR("_msysmenu")=7 RETURN ENDIF ON ERROR ON SHUTDOWN SET CLASSLIB TO SET PATH TO CLEAR ALL CLOSE ALL POP MENU _msysmenu RETURN **  LOCAL lcMainClassLib LOCAL lcLastSetTalk,lcLastSetPath,lcLastSetClassLib,lcOnShutdown *-- Save and configure environment. lcLastSetTalk=SET("TALK") SET TALK OFF lcLastSetPath=SET("PATH") IF DIRECTORY(**) CD ** ** ENDIF PUSH MENU _msysmenu lcLastSetClassLib=SET("CLASSLIB") lcMainClassLib="**" SET CLASSLIB TO (lcMainClassLib) ADDITIVE lcOnShutdown="ShutDown()" ON SHUTDOWN &lcOnShutdown ON ERROR ErrorHandler(ERROR(),PROGRAM(),LINENO()) _shell="DO Cleanup IN **" *-- Instantiate application object. RELEASE goApp PUBLIC goApp goApp=CREATEOBJECT("cApplication") *-- Configure application object. ** *-- Show application. goApp.Show *-- Release application. RELEASE goApp *-- Restore default menu. POP MENU _msysmenu *-- Restore environment. ON ERROR ON SHUTDOWN IF NOT lcLastSetClassLib==SET("classlib") RELEASE CLASSLIB (lcMainClassLib) ENDIF IF EMPTY(lcLastSetPath) SET PATH TO ELSE SET PATH TO &lcLastSetPath ENDIF IF lcLastSetTalk=="ON" SET TALK ON ELSE SET TALK OFF ENDIF RETURN FUNCTION ErrorHandler(nError,cMethod,nLine) LOCAL lcErrorMsg,lcCodeLineMsg WAIT CLEAR lcErrorMsg=MESSAGE()+CHR(13)+CHR(13) lcErrorMsg=lcErrorMsg+"Method: "+cMethod lcCodeLineMsg=MESSAGE(1) IF BETWEEN(nLine,1,10000) AND NOT lcCodeLineMsg="..." lcErrorMsg=lcErrorMsg+CHR(13)+"Line: "+ALLTRIM(STR(nLine)) IF NOT EMPTY(lcCodeLineMsg) lcErrorMsg=lcErrorMsg+CHR(13)+CHR(13)+lcCodeLineMsg ENDIF ENDIF IF MESSAGEBOX(lcErrorMsg,17,_screen.Caption)#1 ON ERROR RETURN .F. ENDIF ENDFUNC FUNCTION ShutDown IF TYPE("goApp")=="O" AND NOT ISNULL(goApp) RETURN goApp.OnShutDown() ENDIF Cleanup() QUIT ENDFUNC FUNCTION Cleanup IF CNTBAR("_msysmenu")=7 RETURN ENDIF ON ERROR ON SHUTDOWN SET CLASSLIB TO SET PATH TO CLEAR ALL CLOSE ALL POP MENU _msysmenu RETURN ** ¤LOCAL lcMainClassLib LOCAL lcLastSetTalk,lcLastSetPath,lcLastSetClassLib,lcOnShutdown *-- Save and configure environment. lcLastSetTalk=SET("TALK") SET TALK OFF lcLastSetPath=SET("PATH") IF DIRECTORY([**]) CD [**] ** ENDIF PUSH MENU _msysmenu lcLastSetClassLib=SET("CLASSLIB") lcMainClassLib="**" SET CLASSLIB TO (lcMainClassLib) ADDITIVE lcOnShutdown="ShutDown()" ON SHUTDOWN &lcOnShutdown ON ERROR ErrorHandler(ERROR(),PROGRAM(),LINENO()) _shell="DO Cleanup IN **" *-- Instantiate application object. RELEASE goApp PUBLIC goApp goApp=CREATEOBJECT("cApplication") *-- Configure application object. ** *-- Show application. goApp.Show *-- Release application. RELEASE goApp *-- Restore default menu. POP MENU _msysmenu *-- Restore environment. ON ERROR ON SHUTDOWN IF NOT lcLastSetClassLib==SET("classlib") RELEASE CLASSLIB (lcMainClassLib) ENDIF IF EMPTY(lcLastSetPath) SET PATH TO ELSE SET PATH TO &lcLastSetPath ENDIF IF lcLastSetTalk=="ON" SET TALK ON ELSE SET TALK OFF ENDIF RETURN FUNCTION ErrorHandler(nError,cMethod,nLine) LOCAL lcErrorMsg,lcCodeLineMsg WAIT CLEAR lcErrorMsg=MESSAGE()+CHR(13)+CHR(13) lcErrorMsg=lcErrorMsg+"Method: "+cMethod lcCodeLineMsg=MESSAGE(1) IF BETWEEN(nLine,1,10000) AND NOT lcCodeLineMsg="..." lcErrorMsg=lcErrorMsg+CHR(13)+"Line: "+ALLTRIM(STR(nLine)) IF NOT EMPTY(lcCodeLineMsg) lcErrorMsg=lcErrorMsg+CHR(13)+CHR(13)+lcCodeLineMsg ENDIF ENDIF IF MESSAGEBOX(lcErrorMsg,17,_screen.Caption)#1 ON ERROR RETURN .F. ENDIF ENDFUNC FUNCTION ShutDown IF TYPE("goApp")=="O" AND NOT ISNULL(goApp) RETURN goApp.OnShutDown() ENDIF Cleanup() QUIT ENDFUNC FUNCTION Cleanup IF CNTBAR("_msysmenu")=7 RETURN ENDIF ON ERROR ON SHUTDOWN SET CLASSLIB TO SET PATH TO CLEAR ALL CLOSE ALL POP MENU _msysmenu RETURN ** ÇLOCAL lcMainClassLib LOCAL lcLastSetTalk,lcLastSetPath,lcLastSetClassLib,lcOnShutdown *-- Save and configure environment. lcLastSetTalk=SET("TALK") SET TALK OFF lcLastSetPath=SET("PATH") IF DIRECTORY([**]) CD [**] ** ENDIF PUSH MENU _msysmenu lcLastSetClassLib=SET("CLASSLIB") lcMainClassLib="**" SET CLASSLIB TO (lcMainClassLib) ADDITIVE lcOnShutdown="ShutDown()" ON SHUTDOWN &lcOnShutdown ON ERROR ErrorHandler(ERROR(),PROGRAM(),LINENO()) IF FILE([**]) _shell="DO Cleanup IN [**]" ENDIF *-- Instantiate application object. RELEASE goApp PUBLIC goApp goApp=CREATEOBJECT("cApplication") *-- Configure application object. ** *-- Show application. goApp.Show *-- Release application. RELEASE goApp *-- Restore default menu. POP MENU _msysmenu *-- Restore environment. ON ERROR ON SHUTDOWN IF NOT lcLastSetClassLib==SET("classlib") RELEASE CLASSLIB (lcMainClassLib) ENDIF IF EMPTY(lcLastSetPath) SET PATH TO ELSE SET PATH TO &lcLastSetPath ENDIF IF lcLastSetTalk=="ON" SET TALK ON ELSE SET TALK OFF ENDIF RETURN FUNCTION ErrorHandler(nError,cMethod,nLine) LOCAL lcErrorMsg,lcCodeLineMsg WAIT CLEAR lcErrorMsg=MESSAGE()+CHR(13)+CHR(13) lcErrorMsg=lcErrorMsg+"Method: "+cMethod lcCodeLineMsg=MESSAGE(1) IF BETWEEN(nLine,1,10000) AND NOT lcCodeLineMsg="..." lcErrorMsg=lcErrorMsg+CHR(13)+"Line: "+ALLTRIM(STR(nLine)) IF NOT EMPTY(lcCodeLineMsg) lcErrorMsg=lcErrorMsg+CHR(13)+CHR(13)+lcCodeLineMsg ENDIF ENDIF IF MESSAGEBOX(lcErrorMsg,17,_screen.Caption)#1 ON ERROR RETURN .F. ENDIF ENDFUNC FUNCTION ShutDown IF TYPE("goApp")=="O" AND NOT ISNULL(goApp) RETURN goApp.OnShutDown() ENDIF Cleanup() QUIT ENDFUNC FUNCTION Cleanup IF CNTBAR("_msysmenu")=7 RETURN ENDIF ON ERROR ON SHUTDOWN SET CLASSLIB TO SET PATH TO CLEAR ALL CLOSE ALL POP MENU _msysmenu RETURN ** ÅLOCAL lcMainClassLib LOCAL lcLastSetTalk,lcLastSetPath,lcLastSetClassLib,lcOnShutdown *-- Save and configure environment. lcLastSetTalk=SET("TALK") SET TALK OFF lcLastSetPath=SET("PATH") IF DIRECTORY([**]) CD [**] ** ENDIF PUSH MENU _msysmenu lcLastSetClassLib=SET("CLASSLIB") lcMainClassLib="**" SET CLASSLIB TO (lcMainClassLib) ADDITIVE lcOnShutdown="ShutDown()" ON SHUTDOWN &lcOnShutdown ON ERROR ErrorHandler(ERROR(),PROGRAM(),LINENO()) IF FILE([**]) _shell="DO Cleanup IN **" ENDIF *-- Instantiate application object. RELEASE goApp PUBLIC goApp goApp=CREATEOBJECT("cApplication") *-- Configure application object. ** *-- Show application. goApp.Show *-- Release application. RELEASE goApp *-- Restore default menu. POP MENU _msysmenu *-- Restore environment. ON ERROR ON SHUTDOWN IF NOT lcLastSetClassLib==SET("classlib") RELEASE CLASSLIB (lcMainClassLib) ENDIF IF EMPTY(lcLastSetPath) SET PATH TO ELSE SET PATH TO &lcLastSetPath ENDIF IF lcLastSetTalk=="ON" SET TALK ON ELSE SET TALK OFF ENDIF RETURN FUNCTION ErrorHandler(nError,cMethod,nLine) LOCAL lcErrorMsg,lcCodeLineMsg WAIT CLEAR lcErrorMsg=MESSAGE()+CHR(13)+CHR(13) lcErrorMsg=lcErrorMsg+"Method: "+cMethod lcCodeLineMsg=MESSAGE(1) IF BETWEEN(nLine,1,10000) AND NOT lcCodeLineMsg="..." lcErrorMsg=lcErrorMsg+CHR(13)+"Line: "+ALLTRIM(STR(nLine)) IF NOT EMPTY(lcCodeLineMsg) lcErrorMsg=lcErrorMsg+CHR(13)+CHR(13)+lcCodeLineMsg ENDIF ENDIF IF MESSAGEBOX(lcErrorMsg,17,_screen.Caption)#1 ON ERROR RETURN .F. ENDIF ENDFUNC FUNCTION ShutDown IF TYPE("goApp")=="O" AND NOT ISNULL(goApp) RETURN goApp.OnShutDown() ENDIF Cleanup() QUIT ENDFUNC FUNCTION Cleanup IF CNTBAR("_msysmenu")=7 RETURN ENDIF ON ERROR ON SHUTDOWN SET CLASSLIB TO SET PATH TO CLEAR ALL CLOSE ALL POP MENU _msysmenu RETURN **